home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / BLINK-PA.ELC < prev    next >
Text File  |  1993-03-28  |  2KB  |  18 lines
  1. ;;; compiled by jwz@thalidomide on Wed Nov 18 17:39:17 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/blink-paren.el
  3. ;;; emacs version 19.3.9 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar blink-paren-timeout 0.2 "\
  14. *If the cursor is on a parenthesis, the matching parenthesis will blink.
  15. This variable controls how long each phase of the blink lasts in seconds.
  16. This should be a fractional part of a second (a float.)")
  17. (byte-code "└┴!¼ä┬┴!ê└├!¼ä┬├!ê─├!¼╞├┼╞╔\"╩H*╞ ╠═ ╩%ê+├┼╞╔\"╩H*╞ ╠╬ ╧%ê+╨╤!¼â╞╨╥!¼â╞╙╘Mê╒╓Mê╫╪Mê┘┌Mê█▄Mê▌▐Mê▌ ç" [find-face blink-paren-on make-face blink-paren-off face-differs-from-default-p default nil screen face get-face 5 color set-face-1 background foreground 4 boundp blink-paren-extent blink-paren-timeout-id blink-paren-sexp-dir #[nil "`dW½ë`fz└=½é┴ç`eV½ï`┴Zfz┬=½é├ç─ç" [40 1 41 -1 nil] 2] blink-paren-make-extent #[nil "└ ë¡ä┬├─Å)ç" [blink-paren-sexp-dir dir nil (byte-code "è└    !ê`)    ├U½ê─\n├Z\n\"¬å─\në├\\\"╞╟\"ê*ç" [forward-sexp dir other-pos 1 make-extent extent set-extent-face blink-paren-on] 4) ((error))] 4] blink-paren-timeout #[(arg) "└┴┬Åç" [nil (byte-code "└    ┬    !├=½â─¬ü├\"ç" [set-extent-face blink-paren-extent extent-face blink-paren-on blink-paren-off] 4) ((error (blink-paren-pre-command)))] 3] blink-paren-post-command #[nil "└ ê┴ ë¡Ñ├─┼\"¡å╞\n─\"ê╟?¡û╚    !¼à    ¿¡ï╩    ╔╦    $ë ç" [blink-paren-pre-command blink-paren-make-extent blink-paren-extent face-equal blink-paren-on blink-paren-off set-extent-face t floatp blink-paren-timeout add-timeout nil blink-paren-timeout-id] 5] blink-paren-pre-command #[nil "└┴┬Åç" [c (byte-code "└\n½å├\n─!ê¡à╞─!)ç" [t inhibit-quit blink-paren-timeout-id disable-timeout nil blink-paren-extent delete-extent] 3) ((error (message "blink paren error! %s" c)))] 3] blink-paren-init #[nil "└┴┬\"ê└├─\"ê┼ëç" [add-hook pre-command-hook blink-paren-pre-command post-command-hook blink-paren-post-command nil blink-matching-paren] 3]] 6)
  18.